COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(512),L(3)
C00004 ENDMK
C⊗;
	DIMENSION I(512),L(3)
	EQUIVALENCE (L1,L),(L2,L(2)),(L3,L(3))
1	FORMAT(' TYPE INPUT NAME '$)
2	FORMAT(' FIRST OUTPUT NAME WILL BE ',A5,'.DAT')
20	FORMAT(' FILE ',A5,'.DAT IS DONE  ',I4)
3	FORMAT(A5)
8	FORMAT(2I5,I2)
	NAM2='AAAAA'
	TYPE 1
	ACCEPT 3,NAME
	TYPE 2,NAM2
CC	ACCEPT 3,NAM2
	J1=-99
	J2=J1
	J3=J1
	KK=0
	CALL OFILE(1,NAM2)
	CALL GETEXT(NAME,'PLT')
	NN=-1
	JJ=1
	KNT=0
4	CALL EXTIN(I,512)
	DO 5 J=1,512
	IF(JJ.EQ.1)GO TO 9
	KNT=KNT+1
	CALL UNPAC(I(J),L)
CC	TYPE 8,L
	IF(L3.LT.0)L3=0
	IF(L3.NE.NN)GO TO 6
	L3=1
	GO TO 7
6	NN=L3
7	IF(J1.NE.L1)GO TO 11
	IF(J2.NE.L2)GO TO 11
	IF(J3.EQ.L3)GO TO 10
11	J2=L2
	J1=L1
	J3=L3
	WRITE(1,8)L
CC	TYPE 8,KK,KNT,L3
C***	IF(KNT.LE.2000)GO TO 9
C***	TYPE 20,NAM2,KNT
C***	NAM2=NAM2+2
C***	END FILE 1
C***	CALL OFILE(1,NAM2)
C***	J3=99
C***	KNT=0
9	JJ=JJ+1
	IF(JJ.GT.128)JJ=1
5	CONTINUE
	GO TO 4
10	TYPE 20,NAM2,KNT
	END